From af315576ea2df75fda9ec4d189a78142f0f80d55 Mon Sep 17 00:00:00 2001 From: Camm Maguire Date: Tue, 22 Nov 2016 04:53:35 +0000 Subject: [PATCH] pathnames1.13 Gbp-Pq: Name pathnames1.13 --- lsp/gcl_iolib.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lsp/gcl_iolib.lsp b/lsp/gcl_iolib.lsp index 60a18d99..d3bca684 100755 --- a/lsp/gcl_iolib.lsp +++ b/lsp/gcl_iolib.lsp @@ -460,7 +460,8 @@ (defun load-pathname-exists (z) (or (probe-file z) (when *allow-gzipped-file* - (probe-file (string-concatenate (namestring z) ".gz"))))) + (when (probe-file (string-concatenate (namestring z) ".gz")) + z)))) (defun load-pathname (p print if-does-not-exist external-format &aux (pp (merge-pathnames p)) -- 2.30.2